home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Asm / AB3DIIsrc / source_4000 / hireswall.s < prev    next >
Encoding:
Text File  |  1996-07-01  |  36.9 KB  |  2,729 lines
  1.     dc.w 0
  2. leftclip: dc.w 0
  3.     dc.w 0
  4. rightclip: dc.w 0
  5. deftopclip: dc.w 0
  6. defbotclip: dc.w 0
  7. leftclipandlast: dc.w 0
  8.  
  9. SCALE MACRO
  10.  dc.w 64*0
  11.  dc.w 64*1
  12.  dc.w 64*1
  13.  dc.w 64*2
  14.  dc.w 64*2
  15.  dc.w 64*3
  16.  dc.w 64*3
  17.  dc.w 64*4
  18.  dc.w 64*4
  19.  dc.w 64*5
  20.  dc.w 64*5
  21.  dc.w 64*6
  22.  dc.w 64*6
  23.  dc.w 64*7
  24.  dc.w 64*7
  25.  dc.w 64*8
  26.  dc.w 64*8
  27.  dc.w 64*9
  28.  dc.w 64*9
  29.  dc.w 64*10
  30.  dc.w 64*10
  31.  dc.w 64*11
  32.  dc.w 64*11
  33.  dc.w 64*12
  34.  dc.w 64*12
  35.  dc.w 64*13
  36.  dc.w 64*13
  37.  dc.w 64*14
  38.  dc.w 64*14
  39.  dc.w 64*15
  40.  dc.w 64*15
  41.  dc.w 64*16
  42.  dc.w 64*16
  43.  dc.w 64*17
  44.  dc.w 64*17
  45.  dc.w 64*18
  46.  dc.w 64*18
  47.  dc.w 64*19
  48.  dc.w 64*19
  49.  dc.w 64*20
  50.  dc.w 64*20
  51.  dc.w 64*21
  52.  dc.w 64*21
  53.  dc.w 64*22
  54.  dc.w 64*22
  55.  dc.w 64*23
  56.  dc.w 64*23
  57.  dc.w 64*24
  58.  dc.w 64*24
  59.  dc.w 64*25
  60.  dc.w 64*25
  61.  dc.w 64*26
  62.  dc.w 64*26
  63.  dc.w 64*27
  64.  dc.w 64*27
  65.  dc.w 64*28
  66.  dc.w 64*28
  67.  dc.w 64*29
  68.  dc.w 64*29
  69.  dc.w 64*30
  70.  dc.w 64*30
  71.  dc.w 64*31
  72.  dc.w 64*31
  73.  dc.w 64*31
  74.  dc.w 64*31
  75.  dc.w 64*31
  76.  dc.w 64*31
  77.  dc.w 64*31
  78.  dc.w 64*31
  79.  dc.w 64*31
  80.  dc.w 64*31
  81.  dc.w 64*31
  82.  dc.w 64*31
  83.  dc.w 64*31
  84.  dc.w 64*31
  85.  dc.w 64*31
  86.  dc.w 64*31
  87.  dc.w 64*31
  88.  dc.w 64*31
  89.  dc.w 64*31
  90.  dc.w 64*31
  91.  ENDM
  92.  
  93. *********************************** 
  94.  
  95. * The screendivide routine is simpler
  96. * using a0=left pixel
  97. * a2= right pixel
  98. * d0= left dist
  99. * d2= right dist
  100. * d4 = left strip
  101. * d5 = right strip
  102.  
  103. * (a0)=leftx
  104. * 2(a0)=rightx
  105.  
  106. * 4(a0)=leftbm
  107. * 6(a0)=rightbm
  108.  
  109. * 8(a0)=leftdist
  110. * 10(a0)=rightdist
  111.  
  112. * 12(a0)=lefttop
  113. * 14(a0)=righttop
  114.  
  115. * 16(a0)=leftbot
  116. * 18(a0)=rightbot
  117.  
  118.  
  119. Doleftend:
  120.  
  121.  move.w leftclip,d0
  122.  sub.w #1,d0
  123.  move.w d0,leftclipandlast
  124.  
  125.  
  126.  move.w (a0),d0
  127.  move.w 2(a0),d1
  128.  sub.w d0,d1
  129.  bge.s sometodraw
  130.  rts
  131. sometodraw:
  132.  move.w itertab(pc,d1.w*4),d7
  133.  swap d0
  134.  move.w itertab+2(pc,d1.w*4),d6
  135.  clr.w d0
  136.  swap d1
  137.  clr.w d1
  138.  asr.l d6,d1
  139.  move.l d1,(a0)
  140.  
  141.  bra pstit
  142.  
  143. itertab:
  144.  incbin "ab3:includes/iterfile"
  145.  
  146. pstit:
  147.  
  148.  moveq #0,d1
  149.  move.w 4(a0),d1
  150.  moveq #0,d2
  151.  move.w 6(a0),d2
  152.  sub.w d1,d2
  153.  swap d1
  154.  swap d2
  155.  asr.l d6,d2
  156.  move.l d2,4(a0)
  157.  
  158.  moveq #0,d2
  159.  move.w 8(a0),d2
  160.  moveq #0,d3
  161.  move.w 10(a0),d3
  162.  sub.w d2,d3
  163.  swap d2
  164.  swap d3
  165.  asr.l d6,d3
  166.  move.l d3,8(a0)
  167.  
  168.  moveq #0,d3
  169.  move.w 12(a0),d3
  170.  moveq #0,d4
  171.  move.w 14(a0),d4
  172.  sub.w d3,d4
  173.  swap d3
  174.  swap d4
  175.  asr.l d6,d4
  176.  move.l d4,12(a0)
  177.  
  178.  moveq #0,d4
  179.  move.w 16(a0),d4
  180.  moveq #0,d5
  181.  move.w 18(a0),d5
  182.  sub.w d4,d5
  183.  swap d4
  184.  swap d5
  185.  asr.l d6,d5
  186.  move.l d5,16(a0)
  187.  
  188.  
  189. *** Gouraud shading ***
  190.  moveq #0,d5
  191.  move.w 26(a0),d5
  192.  sub.w 24(a0),d5
  193.  add.w d5,d5
  194.  swap d5
  195.  asr.l d6,d5
  196.  move.l d5,28(a0)
  197.  moveq #0,d5
  198.  move.w 24(a0),d5
  199.  add.w d5,d5
  200.  swap d5
  201.  
  202.  bra screendivide
  203.  
  204. itercount: dc.w 0
  205.  
  206. screendividethru:
  207.  
  208. .scrdrawlop:
  209.  
  210.  move.w (a0)+,d0
  211.  move.l FASTBUFFER,a3
  212.  move.l (a0)+,d1
  213.  
  214.  bra .pastscrinto
  215.  
  216. .scrintocop:
  217.  incbin "ab3:includes/XTOCOPX"
  218.  
  219. .pastscrinto 
  220.  
  221.  swap d1
  222.  
  223.  move.w d1,d6
  224.  and.w HORAND,d6
  225.  move.l (a0)+,d2
  226.  swap d2
  227.  add.w fromtile(pc),d6
  228.  add.w d6,d6
  229.  move.w d6,a5
  230.  move.l (a0)+,d3
  231.  swap d3
  232.  add.l #divthreetab,a5
  233.  move.w (a5),StripData
  234.  
  235.  move.l ChunkAddr,a5
  236.  moveq #0,d6
  237.  move.b StripData,d6
  238.  add.w d6,d6
  239.  move.w VALSHIFT,d4
  240.  asl.l d4,d6
  241.  add.l d6,a5
  242.  move.l (a0)+,d4
  243.  swap d4
  244.  move.w d2,d6
  245. ***************************
  246. * old version
  247.  asr.w #7,d6
  248. ***************************
  249. ; asr.w #3,d6
  250. ; sub.w #4,d6
  251. ; cmp.w #6,d6
  252. ; blt.s tstbrbr
  253. ; move.w #6,d6
  254. ;tstbrbr:
  255. ***************************
  256.  add.w angbright(pc),d6
  257.  bge.s .brnotneg
  258.  moveq #0,d6
  259. .brnotneg
  260.  cmp.w #32,d6
  261.  blt.s .brnotpos
  262.  move.w #32,d6
  263. .brnotpos
  264.  move.l PaletteAddr,a2
  265.  move.l a2,a4
  266.  add.w .ffscrpickhowbright(pc,d6*2),a2
  267. ; and.b #$fe,d6
  268. ; add.w .ffscrpickhowbright(pc,d6*2),a4
  269.  
  270. ; btst #0,d0
  271. ; beq .nobrightswap
  272. ; exg a2,a4
  273. ;.nobrightswap:
  274.  
  275.  move.w d7,-(a7)
  276.  bsr ScreenWallstripdrawthru
  277.  move.w (a7)+,d7
  278.  
  279.  dbra d7,.scrdrawlop
  280.  rts
  281.  
  282. .ffscrpickhowbright:
  283.  SCALE
  284.  
  285.  
  286. ***************************
  287.  
  288. screendivide:
  289.  
  290.  or.l #$ffff0000,d7
  291.  move.w leftclipandlast(pc),d6
  292.  move.l #WorkSpace,a2
  293.  
  294.  move.l (a0),a3
  295.  move.l 4(a0),a4
  296.  move.l 8(a0),a5
  297.  move.l 12(a0),a6
  298.  move.l 16(a0),a1
  299.  move.l 28(a0),a0
  300.  
  301. scrdivlop:
  302.  
  303.  swap d0
  304.  cmp.w d6,d0
  305.  bgt scrnotoffleft
  306.  swap d0
  307.  add.l a4,d1
  308.  add.l a5,d2
  309.  add.l a6,d3
  310.  add.l a1,d4
  311.  add.l a3,d0
  312.  add.l a0,d5
  313.  dbra d7,scrdivlop
  314.  rts
  315.  
  316. scrnotoffleft:
  317.  
  318.  move.w d0,d6
  319.  
  320.  cmp.w rightclip(pc),d0
  321.  bge.s outofcalc
  322.  
  323. scrnotoffright:
  324.  
  325.  
  326.  move.w d0,(a2)+
  327.  move.l d1,(a2)+
  328.  move.l d2,(a2)+
  329.  move.l d3,(a2)+
  330.  move.l d4,(a2)+
  331.  move.l d5,(a2)+
  332.  swap d0
  333.  add.l a3,d0
  334.  add.l a4,d1
  335.  add.l a5,d2
  336.  add.l a6,d3
  337.  add.l a1,d4
  338.  add.l a0,d5
  339.  add.l #$10000,d7
  340.  dbra d7,scrdivlop
  341.  
  342. outofcalc:
  343.  swap d7
  344.  tst.w d7
  345.  bge.s .somethingtodraw
  346.  rts
  347. .somethingtodraw:
  348.  
  349.  move.l #consttab,a1
  350.  move.l #WorkSpace,a0
  351.  
  352.  tst.b FULLSCR
  353.  bne screendivideFULL
  354.  
  355. ; tst.b seethru
  356. ; bne screendividethru
  357.  
  358.  tst.b DOUBLEWIDTH
  359.  bne scrdrawlopDOUB
  360.  bra scrdrawlop
  361.  
  362. thislinedone:
  363.  add.w #4+4+4+4+4,a0
  364.  dbra d7,scrdrawlop
  365.  rts
  366.  
  367. scrdrawlop:
  368.  
  369.  move.w (a0)+,d0
  370.  
  371.  cmp.w LASTSTIRRUP,d0
  372.  beq.s thislinedone
  373.  move.w d0,LASTSTIRRUP
  374.  
  375.  move.l FASTBUFFER,a3
  376.  lea (a3,d0.w),a3
  377.  move.l (a0)+,d1
  378.  
  379.  swap d1
  380.  
  381.  move.w d1,d6
  382.  and.w HORAND,d6
  383.  move.l (a0)+,d2
  384.  swap d2
  385.  add.w fromtile(pc),d6
  386.  add.w d6,d6
  387.  move.w d6,a5
  388.  move.l (a0)+,d3
  389.  swap d3
  390.  add.l #divthreetab,a5
  391.  move.w (a5),StripData
  392.  
  393.  move.l ChunkAddr,a5
  394.  moveq #0,d6
  395.  move.b StripData,d6
  396.  add.w d6,d6
  397.  move.w VALSHIFT,d4
  398.  asl.l d4,d6
  399.  add.l d6,a5
  400.  move.l (a0)+,d4
  401.  swap d4
  402.  addq #1,d4
  403.  move.w d2,d6
  404. ***************************
  405. * old version
  406.  asr.w #7,d6
  407. ***************************
  408. ; asr.w #3,d6
  409. ; sub.w #4,d6
  410. ; cmp.w #6,d6
  411. ; blt.s tstbrbr
  412. ; move.w #6,d6
  413. ;tstbrbr:
  414. ***************************
  415.  move.l (a0)+,d5
  416.  swap d5
  417.  ext.w d5
  418.  add.w d5,d6
  419.  bge.s .brnotneg
  420.  moveq #0,d6
  421. .brnotneg
  422.  cmp.w #64,d6
  423.  blt.s .brnotpos
  424.  move.w #64,d6
  425. .brnotpos
  426.  move.l PaletteAddr,a2
  427.  move.l a2,a4
  428.  add.w ffscrpickhowbright(pc,d6*2),a2
  429.  and.b #$fe,d6
  430.  add.w ffscrpickhowbright(pc,d6*2),a4
  431.  
  432.  btst #0,d0
  433.  beq .nobrightswap
  434.  exg a2,a4
  435. .nobrightswap:
  436.  
  437.  move.w d7,-(a7)
  438.  bsr ScreenWallstripdraw
  439.  move.w (a7)+,d7
  440.  
  441. toosmall:
  442.  
  443.  dbra d7,scrdrawlop
  444.  
  445.  rts
  446.  
  447. ffscrpickhowbright:
  448.  SCALE
  449.  
  450.  
  451. thislineodd:
  452.  add.w #4+4+4+4+4,a0
  453.  dbra d7,scrdrawlopDOUB
  454.  rts
  455.  
  456. scrdrawlopDOUB:
  457.  
  458.  move.w (a0)+,d0
  459.  btst #0,d0
  460.  bne.s thislineodd
  461.  
  462.  cmp.w LASTSTIRRUP,d0
  463.  beq.s thislineodd
  464.  move.w d0,LASTSTIRRUP
  465.  
  466.  move.l FASTBUFFER,a3
  467.  lea (a3,d0.w),a3
  468.  move.l (a0)+,d1
  469.  
  470.  swap d1
  471.  
  472.  move.w d1,d6
  473.  and.w HORAND,d6
  474.  move.l (a0)+,d2
  475.  swap d2
  476.  add.w fromtile(pc),d6
  477.  add.w d6,d6
  478.  move.w d6,a5
  479.  move.l (a0)+,d3
  480.  swap d3
  481.  add.l #divthreetab,a5
  482.  move.w (a5),StripData
  483.  
  484.  move.l ChunkAddr,a5
  485.  moveq #0,d6
  486.  move.b StripData,d6
  487.  add.w d6,d6
  488.  move.w VALSHIFT,d4
  489.  asl.l d4,d6
  490.  add.l d6,a5
  491.  move.l (a0)+,d4
  492.  swap d4
  493.  addq #1,d4
  494.  move.w d2,d6
  495. ***************************
  496. * old version
  497.  asr.w #7,d6
  498. ***************************
  499. ; asr.w #3,d6
  500. ; sub.w #4,d6
  501. ; cmp.w #6,d6
  502. ; blt.s tstbrbr
  503. ; move.w #6,d6
  504. ;tstbrbr:
  505. ***************************
  506.  move.l (a0)+,d5
  507.  swap d5
  508.  ext.w d5
  509.  add.w d5,d6
  510.  bge.s .brnotneg
  511.  moveq #0,d6
  512. .brnotneg
  513.  cmp.w #64,d6
  514.  blt.s .brnotpos
  515.  move.w #64,d6
  516. .brnotpos
  517.  move.l PaletteAddr,a2
  518.  move.l a2,a4
  519.  add.w ffscrpickhowbrightD(pc,d6*2),a2
  520.  and.b #$fe,d6
  521.  add.w ffscrpickhowbrightD(pc,d6*2),a4
  522.  
  523.  btst #0,d0
  524.  beq .nobrightswap
  525.  exg a2,a4
  526. .nobrightswap:
  527.  
  528.  move.w d7,-(a7)
  529.  bsr ScreenWallstripdraw
  530.  move.w (a7)+,d7
  531.  
  532.  
  533.  dbra d7,scrdrawlopDOUB
  534.  
  535.  rts
  536.  
  537.  
  538. middleline:
  539.  dc.w 0
  540. LASTSTIRRUP: dc.w 0
  541.  
  542. ;scrintocop:
  543. ; incbin "XTOCOPX"
  544. prot4: dc.w 0
  545.  
  546. fromtile: dc.l 0
  547. fromquartertile: dc.l 0
  548. swapbrights: dc.w 0
  549. angbright: dc.w 0
  550.  
  551. leftside: dc.b 0
  552. rightside: dc.b 0
  553. firstleft: dc.w 0
  554.  
  555. ffscrpickhowbrightD:
  556.  SCALE
  557.  
  558. screendivideFULL:
  559.  
  560.  tst.b DOUBLEWIDTH
  561.  bne scrdrawlopFULLDOUB
  562.  
  563.  
  564. scrdrawlopFULL:
  565.  
  566.  move.w (a0)+,d0
  567.  move.l FASTBUFFER,a3
  568.  lea (a3,d0.w),a3
  569.  move.l (a0)+,d1
  570.  
  571. ; bra pastscrinto
  572. ;
  573. ; 
  574. ;pastscrinto 
  575.  
  576.  swap d1
  577.  
  578.  move.w d1,d6
  579.  and.w HORAND,d6
  580.  move.l (a0)+,d2
  581.  swap d2
  582.  add.w fromtile(pc),d6
  583.  add.w d6,d6
  584.  move.w d6,a5
  585.  move.l (a0)+,d3
  586.  swap d3
  587.  add.l #divthreetab,a5
  588.  move.w (a5),StripData
  589.  
  590.  move.l ChunkAddr,a5
  591.  moveq #0,d6
  592.  move.b StripData,d6
  593.  add.w d6,d6
  594.  move.w VALSHIFT,d4
  595.  asl.l d4,d6
  596.  add.l d6,a5
  597.  move.l (a0)+,d4
  598.  swap d4
  599.  addq #1,d4
  600.  move.w d2,d6
  601. ***************************
  602. * old version
  603.  asr.w #7,d6
  604. ***************************
  605. ; asr.w #3,d6
  606. ; sub.w #4,d6
  607. ; cmp.w #6,d6
  608. ; blt.s tstbrbr
  609. ; move.w #6,d6
  610. ;tstbrbr:
  611. ***************************
  612.  move.l (a0)+,d5
  613.  swap d5
  614.  ext.w d5
  615.  add.w d5,d6
  616.  bge.s .brnotneg
  617.  moveq #0,d6
  618. .brnotneg
  619.  cmp.w #64,d6
  620.  blt.s .brnotpos
  621.  move.w #64,d6
  622. .brnotpos
  623.  move.l PaletteAddr,a2
  624.  move.l a2,a4
  625.  add.w ffscrpickhowbrightFULL(pc,d6*2),a2
  626.  and.b #$fe,d6
  627.  add.w ffscrpickhowbrightFULL(pc,d6*2),a4
  628.  
  629.  btst #0,d0
  630.  beq .nobrightswap
  631.  exg a2,a4
  632. .nobrightswap:
  633.  
  634.  move.w d7,-(a7)
  635.  bsr ScreenWallstripdrawBIG
  636.  move.w (a7)+,d7
  637.  
  638.  dbra d7,scrdrawlopFULL
  639.  
  640.  rts
  641.  
  642. ffscrpickhowbrightFULL:
  643.  SCALE
  644.  
  645. itsanoddone:
  646.  add.w #4+4+4+4+4,a0
  647.  dbra d7,scrdrawlopFULLDOUB
  648.  rts
  649.  
  650. scrdrawlopFULLDOUB:
  651.  
  652.  move.w (a0)+,d0
  653.  btst #0,d0
  654.  bne.s itsanoddone
  655.  
  656.  move.l FASTBUFFER,a3
  657.  lea (a3,d0.w),a3
  658.  move.l (a0)+,d1
  659.  
  660. ; bra pastscrinto
  661. ;
  662. ; 
  663. ;pastscrinto 
  664.  
  665.  swap d1
  666.  
  667.  move.w d1,d6
  668.  and.w HORAND,d6
  669.  move.l (a0)+,d2
  670.  swap d2
  671.  add.w fromtile(pc),d6
  672.  add.w d6,d6
  673.  move.w d6,a5
  674.  move.l (a0)+,d3
  675.  swap d3
  676.  add.l #divthreetab,a5
  677.  move.w (a5),StripData
  678.  
  679.  move.l ChunkAddr,a5
  680.  moveq #0,d6
  681.  move.b StripData,d6
  682.  add.w d6,d6
  683.  move.w VALSHIFT,d4
  684.  asl.l d4,d6
  685.  add.l d6,a5
  686.  move.l (a0)+,d4
  687.  swap d4
  688.  addq #1,d4
  689.  move.w d2,d6
  690. ***************************
  691. * old version
  692.  asr.w #7,d6
  693. ***************************
  694. ; asr.w #3,d6
  695. ; sub.w #4,d6
  696. ; cmp.w #6,d6
  697. ; blt.s tstbrbr
  698. ; move.w #6,d6
  699. ;tstbrbr:
  700. ***************************
  701.  move.l (a0)+,d5
  702.  swap d5
  703.  ext.w d5
  704.  add.w d5,d6
  705.  bge.s .brnotneg
  706.  moveq #0,d6
  707. .brnotneg
  708.  cmp.w #64,d6
  709.  blt.s .brnotpos
  710.  move.w #64,d6
  711. .brnotpos
  712.  move.l PaletteAddr,a2
  713.  move.l a2,a4
  714.  add.w ffscrpickhowbrightFULLDOUB(pc,d6*2),a2
  715.  and.b #$fe,d6
  716.  add.w ffscrpickhowbrightFULLDOUB(pc,d6*2),a4
  717.  
  718.  btst #0,d0
  719.  beq .nobrightswap
  720.  exg a2,a4
  721. .nobrightswap:
  722.  
  723.  move.w d7,-(a7)
  724.  bsr ScreenWallstripdrawBIG
  725.  move.w (a7)+,d7
  726.  
  727.  dbra d7,scrdrawlopFULLDOUB
  728.  
  729.  rts
  730.  
  731. ffscrpickhowbrightFULLDOUB:
  732.  SCALE
  733.  
  734.  
  735. divthreetab:
  736. val SET 0
  737.  REPT 220
  738.  dc.b val,0
  739.  dc.b val,1
  740.  dc.b val,2
  741. val SET val+1
  742.  ENDR
  743.  
  744. StripData: dc.w 0
  745.  
  746. * using a0=left pixel
  747. * a2= right pixel
  748. * d0= left height
  749. * d2= right height
  750. * d4 = left strip
  751. * d5 = right strip
  752.  
  753.  
  754. * Routine to draw a wall;
  755. * pass it X and Z coords of the endpoints
  756. * and the start and end length, and a number
  757. * representing the number of the wall.
  758.  
  759. * a0=x1 d1=z1 a2=x2 d3=z2
  760. * d4=sl d5=el
  761. * a1 = strip buffer
  762.  
  763. store: ds.l 500
  764.  
  765. ******************************************************************
  766.  
  767. * Curve drawing routine. We have to know:
  768. * The top and bottom of the wall
  769. * The point defining the centre of the arc
  770. * the point defining the starting point of the arc
  771. * the start and end angles of the arc
  772. * The start and end positions along the bitmap of the arc
  773. * Which bitmap to use for the arc
  774.  
  775. xmiddle: dc.w 0
  776. zmiddle SET 2
  777.  dc.w 0
  778. xradius SET 4
  779.  dc.w 0
  780. zradius SET 6
  781.  dc.w 0
  782. startbitmap SET 8
  783.  dc.w 0
  784. bitmapcounter SET 10
  785.  dc.w 0
  786. brightmult SET 12
  787.  dc.w 0
  788. angadd SET 14
  789.  dc.l 0
  790. xmiddlebig SET 18
  791.  dc.l 0
  792. basebright SET 22
  793.  dc.w 0
  794. shift SET 24
  795.  dc.w 0
  796. count SET 26
  797.  dc.w 0
  798.  
  799. subdividevals:
  800.  dc.w 2,4
  801.  dc.w 3,8
  802.  dc.w 4,16
  803.  dc.w 5,32
  804.  dc.w 6,64
  805.  
  806. CurveDraw:
  807.  
  808.  move.w (a0)+,d0    ; centre of rotation
  809.  move.w (a0)+,d1    ; point on arc
  810.  move.l #Rotated,a1
  811.  move.l #xmiddle,a2
  812.  move.l (a1,d0.w*8),d2
  813.  move.l d2,18(a2)
  814.  asr.l #7,d2
  815.  move.l (a1,d1.w*8),d4
  816.  asr.l #7,d4
  817.  sub.w d2,d4
  818.  move.w d2,(a2)
  819.  move.w d4,4(a2)
  820.  move.w 6(a1,d0.w*8),d2
  821.  move.w 6(a1,d1.w*8),d4
  822.  sub.w d2,d4
  823.  move.w d2,2(a2)
  824.  asr.w #1,d4
  825.  move.w d4,6(a2)
  826.  move.w (a0)+,d4    ; start of bitmap
  827.  move.w (a0)+,d5    ; end of bitmap
  828.  move.w d4,8(a2)
  829.  sub.w d4,d5
  830.  move.w d5,10(a2)
  831.  move.w (a0)+,d4
  832.  ext.l d4
  833.  move.l d4,14(a2)
  834.  move.w (a0)+,d4
  835.  move.l #subdividevals,a3
  836.  move.l (a3,d4.w*4),shift(a2)
  837.  
  838.  move.l #walltiles,a3
  839.  add.l (a0)+,a3
  840.  adda.w wallyoff,a3
  841.  move.l a3,fromtile
  842.  move.w (a0)+,basebright(a2)
  843.  move.w (a0)+,brightmult(a2)
  844.  move.l (a0)+,topofwall
  845.  move.l (a0)+,botofwall
  846.  move.l yoff,d6
  847.  sub.l d6,topofwall
  848.  sub.l d6,botofwall
  849.  
  850.  move.l #databuffer,a1
  851.  move.l #SineTable,a3
  852.  lea 2048(a3),a4
  853.  moveq #0,d0
  854.  moveq #0,d1
  855.  move.w count(a2),d7
  856. DivideCurve
  857.  move.l d0,d2
  858.  move.w shift(a2),d4
  859.  asr.l d4,d2
  860.  move.w (a3,d2.w*2),d4
  861.  move.w d4,d5
  862.  move.w (a4,d2.w*2),d3
  863.  move.w d3,d6
  864.  muls.w 4(a2),d3
  865.  muls.w 6(a2),d4
  866.  muls.w 4(a2),d5
  867.  muls.w 6(a2),d6
  868.  sub.l d4,d3
  869.  add.l d6,d5
  870.  asl.l #2,d5
  871.  asr.l #8,d3
  872.  add.l 18(a2),d3
  873.  swap d5
  874.  move.w basebright(a2),d6
  875.  move.w brightmult(a2),d4
  876.  muls d5,d4
  877.  swap d4
  878.  add.w d4,d6
  879.  
  880.  add.w 2(a2),d5
  881.  move.l d3,(a1)+
  882.  move.w d5,(a1)+
  883.  move.w d1,d2
  884.  move.w shift(a2),d4
  885.  asr.w d4,d2
  886.  add.w 8(a2),d2
  887.  move.w d2,(a1)+
  888.  move.w d6,(a1)+
  889.  
  890.  add.l 14(a2),d0  
  891.  add.w 10(a2),d1
  892.  dbra d7,DivideCurve
  893.  
  894.  move.l a0,-(a7)
  895.  
  896. ; move.w #31,d6
  897. ; move.l #0,d3
  898. ; move.l #stripbuffer,a4
  899. ;.emptylop:
  900. ; move.l d3,(a4)+
  901. ; dbra d6,.emptylop
  902.  
  903.  bsr curvecalc
  904.  
  905.  move.l (a7)+,a0
  906.  
  907.  rts
  908.  
  909. prot3: dc.w 0
  910.  
  911. curvecalc:
  912.  move.l #databuffer,a1
  913.  move.w count(a2),d7
  914.  subq #1,d7
  915. .findfirstinfront:
  916.  move.l (a1)+,d1
  917.  move.w (a1)+,d0
  918.  bgt.s .foundinfront
  919.  move.w (a1)+,d4
  920.  move.w (a1)+,d6
  921.  dbra d7,.findfirstinfront
  922. ; CACHE_ON d2
  923.  rts    ; no two points were in front
  924.  
  925. .foundinfront:
  926.  move.w (a1)+,d4
  927.  move.w (a1)+,d6
  928.  ; d1=left x, d4=left end, d0=left dist
  929.  ; d6=left angbright 
  930.  
  931.  divs d0,d1
  932.  add.w MIDDLEX,d1
  933.  
  934.  move.l topofwall(pc),d5
  935.  divs d0,d5
  936.  add.w MIDDLEY,d5
  937.  move.w d5,strtop
  938.  move.l botofwall(pc),d5
  939.  divs d0,d5
  940.  add.w MIDDLEY,d5
  941.  move.w d5,strbot
  942.  
  943. ; CACHE_OFF d2
  944.  
  945. .computeloop:
  946.  move.w 4(a1),d2
  947.  bgt.s .infront
  948.  
  949. ; addq #8,a1
  950. ; dbra d7,.findfirstinfront
  951.  
  952. ; CACHE_ON d2
  953.  rts
  954.  
  955. .infront:
  956.  move.l #store,a0
  957.  move.l (a1),d3
  958.  move.w 6(a1),d5
  959.  add.w 8(a1),d6
  960.  asr.w #1,d6
  961.  move.w d6,angbright
  962.  divs d2,d3
  963.  add.w MIDDLEX,d3
  964.  move.w strtop(pc),12(a0)
  965.  move.w strbot(pc),16(a0)
  966.  move.l topofwall(pc),d6
  967.  divs d2,d6
  968.  add.w MIDDLEY,d6
  969.  move.w d6,strtop
  970.  move.w d6,14(a0)
  971.  move.l botofwall(pc),d6
  972.  divs d2,d6
  973.  add.w MIDDLEY,d6
  974.  move.w d6,strbot
  975.  move.w d6,18(a0)
  976.  move.w d3,2(a1)
  977.  blt.s .alloffleft
  978.  cmp.w RIGHTX,d1
  979.  bgt.s .alloffleft
  980.  
  981.  cmp.w d1,d3
  982.  blt.s .alloffleft
  983.  
  984.  move.w d1,(a0)
  985.  move.w d3,2(a0)
  986.  move.w d4,4(a0)
  987.  move.w d5,6(a0)
  988.  move.w d0,8(a0)
  989.  move.w d2,10(a0)
  990.  move.w d7,-(a7)
  991.  move.w #maxscrdiv,d7
  992.  bsr Doleftend
  993.  move.w (a7)+,d7
  994.  
  995. .alloffleft:
  996.  
  997.  move.l (a1)+,d1
  998.  move.w (a1)+,d0
  999.  move.w (a1)+,d4
  1000.  move.w (a1)+,d6
  1001.  
  1002.  dbra d7,.computeloop
  1003.  
  1004. .alloffright:
  1005. ; CACHE_ON d2
  1006.  rts
  1007.  
  1008. ;protcheck:
  1009. ; sub.l #53624,a3
  1010. ; add.l #2345215,a2
  1011. ; lea passspace-$30000(pc),a1
  1012. ; add.l #$30000,a1
  1013. ; lea startpass(pc),a5
  1014. ; move.w #endpass-startpass-1,d1
  1015. ;copypass:
  1016. ; move.b (a5)+,(a1)+
  1017. ; dbra d1,copypass
  1018. ; sub.l a5,a5
  1019. ; lea passspace-$30000(pc),a1
  1020. ; add.l #$30000,a1
  1021. ; jsr (a1)
  1022. ; lea passspace-$30000(pc),a1
  1023. ; add.l #$30000,a1
  1024. ; lea startpass(pc),a5
  1025. ; move.w #(endpass-startpass)/2-1,d1
  1026. ;erasepass:
  1027. ; move.w -(a5),(a1)+
  1028. ; dbra d1,erasepass
  1029. ; sub.l a5,a5
  1030. ; sub.l a1,a1
  1031. ; eor.l #$af594c72,d0
  1032. ; sub.l #123453986,a4
  1033. ; move.l d0,(a4)
  1034. ; add.l #123453986,a4
  1035. ; move.l #0,d0
  1036. ; sub.l #2345215,a2
  1037. ; jsr (a2)
  1038. ; sub.l a2,a2
  1039. ; eor.l #$af594c72,d0
  1040. ; sub.l #123453986,a4
  1041. ; move.l (a4),d1
  1042. ; add.l #123453986,a4
  1043. ; cmp.l d1,d0
  1044. ; bne.s notrightt
  1045. ; add.l #53624,a3
  1046. ; move.w #9,d7
  1047. ;sayitsok:
  1048. ; move.l (a3)+,a2
  1049. ; add.l #78935450,a2
  1050. ; st (a2)
  1051. ; dbra d7,sayitsok
  1052. ;notrightt:
  1053. ; sub.l a3,a3
  1054. ;nullit:
  1055. ; rts
  1056. ; 
  1057. ; incbin "ab3:includes/protroutencoded"
  1058.  
  1059. endprot:
  1060.  
  1061. GOODRENDER: dc.w $ff00
  1062.  
  1063. ******************************************************************
  1064.  
  1065. iters: dc.w 0
  1066. multcount: dc.w 0
  1067.  
  1068. walldraw:
  1069.  
  1070.  tst.w d1
  1071.  bgt.s oneinfront1
  1072.  tst.w d3
  1073.  bgt.s oneinfront
  1074.  rts
  1075.  
  1076. oneinfront1
  1077.  tst.w d3
  1078.  ble.s oneinfront
  1079. ; Bothinfront!
  1080.  
  1081.  nop
  1082.  
  1083. oneinfront
  1084.  
  1085.  move.w #16,d7
  1086.  move.w #2,d6
  1087.  
  1088.  tst.b GOODRENDER
  1089.  beq.s .notgood
  1090.  
  1091.  move.w #64,d7
  1092.  move.w #4,d6
  1093.  bra .ISGOOD
  1094. .notgood:
  1095.  
  1096.  move.l a2,d0
  1097.  sub.l a0,d0
  1098.  bge.s .okpos
  1099.  neg.l d0
  1100. .okpos:
  1101.  
  1102.  cmp.l #256*128,d0
  1103.  blt.s .ISGOOD
  1104.  add.w d7,d7
  1105.  addq #1,d6
  1106.  cmp.l #512*128,d0
  1107.  blt.s .ISGOOD
  1108.  add.w d7,d7
  1109.  addq #1,d6
  1110. .ISGOOD
  1111.  
  1112.  move.w d3,d0
  1113.  sub.w d1,d0
  1114.  bge.s notnegzdiff
  1115.  neg.w d0
  1116. notnegzdiff
  1117. ; cmp.w #1024,d0
  1118. ; blt.s nd01
  1119. ; add.w d7,d7
  1120. ; add.w #1,d6
  1121. ;nd01:
  1122.  cmp.w #512,d0
  1123.  blt.s nd0 
  1124.  tst.b GOODRENDER
  1125.  beq.s nd0
  1126.  add.w d7,d7
  1127.  add.w #1,d6
  1128.  bra nha
  1129. nd0:
  1130.  
  1131.  cmp.w #256,d0
  1132.  bgt.s nh1
  1133.  asr.w #1,d7
  1134.  subq #1,d6
  1135. nh1:
  1136.  cmp.w #128,d0
  1137.  bgt.s nh2
  1138.  asr.w #1,d7
  1139.  subq #1,d6
  1140. nh2:
  1141.  
  1142. nha:
  1143.  
  1144.  move.w d3,d0
  1145.  cmp.w d1,d3
  1146.  blt.s rightnearest
  1147.  move.w d1,d0
  1148. rightnearest:
  1149.  cmp.w #32,d0
  1150.  bgt.s ndd0
  1151.  addq #1,d6
  1152.  add.w d7,d7
  1153. ndd0:
  1154.  cmp.w #64,d0
  1155.  bgt.s nd1
  1156.  addq #1,d6
  1157.  add.w d7,d7
  1158. nd1:
  1159.  
  1160.  cmp.w #128,d0
  1161.  blt.s nh3
  1162.  asr.w #1,d7
  1163.  subq #1,d6
  1164.  blt.s nh4
  1165.  cmp.w #256,d0
  1166.  blt.s nh3
  1167.  asr.w #1,d7
  1168.  subq #1,d6
  1169.  blt.s nh4
  1170. nh3:
  1171.  cmp.w #512,d0
  1172.  blt.s nh4
  1173.  asr.w #1,d7
  1174.  subq #1,d6
  1175. nh4:
  1176.  
  1177.  cmp.w #128,d7
  1178.  ble.s .okokok
  1179.  move.w #128,d7
  1180.  move.w #5,d6
  1181. .okokok:
  1182.  
  1183.  move.w d6,iters
  1184.  subq #1,d7
  1185.  move.w d7,multcount
  1186.  
  1187.  move.l #databuffer,a3
  1188.  move.l a0,d0
  1189.  move.l a2,d2
  1190.  
  1191.  move.l d0,(a3)+
  1192.  add.l d2,d0
  1193.  move.w d1,(a3)+
  1194.  asr.l #1,d0
  1195.  move.w d4,(a3)+
  1196.  
  1197.  move.w leftwallbright,d6
  1198.  move.w d6,(a3)+
  1199.  
  1200.  add.w d5,d4
  1201.  move.l d0,(a3)+
  1202.  add.w d3,d1
  1203.  asr.w #1,d1
  1204.  move.w d1,(a3)+
  1205.  asr.w #1,d4
  1206.  move.w d4,(a3)+
  1207.  
  1208.  add.w rightwallbright,d6
  1209.  asr.w #1,d6
  1210.  move.w d6,(a3)+
  1211.  
  1212.  move.l d2,(a3)+
  1213.  move.w d3,(a3)+
  1214.  move.w d5,(a3)+
  1215.  move.w rightwallbright,(a3)+
  1216.  
  1217.  ; We now have the two endpoints and the midpoint
  1218.  ; so we need to perform 1 iteration of the inner
  1219.  ; loop, the first time.
  1220.  
  1221. * Decide how often to subdivide by how far away the wall is, and
  1222. * how perp. it is to the player.
  1223.  
  1224.  move.l #databuffer,a0
  1225.  move.l #databuffer2,a1
  1226.  
  1227.  move.w iters,d6
  1228.  blt noiters
  1229.  move.l #1,a2
  1230.  
  1231. iterloop:
  1232.  move.l a0,a3
  1233.  move.l a1,a4
  1234.  move.w a2,d7
  1235.  exg a0,a1
  1236.  
  1237.  move.l (a3)+,d0
  1238.  move.w (a3)+,d1
  1239.  move.l (a3)+,d2
  1240. middleloop:
  1241.  move.l d0,(a4)+
  1242.  move.l (a3)+,d3
  1243.  add.l d3,d0
  1244.  move.w d1,(a4)+
  1245.  asr.l #1,d0
  1246.  move.w (a3)+,d4
  1247.  add.w d4,d1
  1248.  move.l d2,(a4)+
  1249.  asr.w #1,d1
  1250.  move.l (a3)+,d5
  1251.  add.l d5,d2
  1252.  move.l d0,(a4)+
  1253.  asr.l #1,d2
  1254.  move.w d1,(a4)+
  1255.  move.l d2,(a4)+
  1256.  
  1257.  move.l d3,(a4)+
  1258.  move.l (a3)+,d0
  1259.  add.l d0,d3
  1260.  
  1261.  move.w d4,(a4)+
  1262.  asr.l #1,d3
  1263.  move.w (a3)+,d1
  1264.  add.w d1,d4
  1265.  move.l d5,(a4)+
  1266.  asr.w #1,d4
  1267.  move.l (a3)+,d2
  1268.  add.l d2,d5
  1269.  move.l d3,(a4)+
  1270.  asr.l #1,d5
  1271.  move.w d4,(a4)+
  1272.  move.l d5,(a4)+
  1273.  
  1274.  
  1275.  subq #1,d7
  1276.  bgt.s middleloop
  1277.  move.l d0,(a4)+
  1278.  move.w d1,(a4)+
  1279.  move.l d2,(a4)+
  1280.  
  1281.  add.w a2,a2
  1282.  
  1283.  dbra d6,iterloop
  1284.  
  1285.  bra someiters
  1286.  
  1287. noiters:
  1288. someiters:
  1289.  
  1290. CalcAndDraw:
  1291.  
  1292. ; CACHE_ON d2
  1293.  
  1294.  move.l a0,a1
  1295.  move.w multcount,d7
  1296. .findfirstinfront:
  1297.  move.l (a1)+,d1
  1298.  move.w (a1)+,d0
  1299.  bgt.s .foundinfront
  1300.  move.l (a1)+,d4
  1301.  dbra d7,.findfirstinfront
  1302.  
  1303.  rts    ; no two points were in front
  1304.  
  1305. .foundinfront:
  1306.  ext.l d0
  1307.  
  1308.  move.w (a1)+,d4
  1309.  move.w (a1)+,lbr
  1310.  ; d1=left x, d4=left end, d0=left dist 
  1311.  
  1312.  divs.l d0,d1
  1313.  moveq #0,d5
  1314.  move.w MIDDLEX,d5
  1315.  add.l d5,d1
  1316.  
  1317.  move.l topofwall(pc),d5
  1318.  divs d0,d5
  1319.  add.w MIDDLEY,d5
  1320.  move.w d5,strtop
  1321.  move.l botofwall(pc),d5
  1322.  divs d0,d5
  1323.  add.w MIDDLEY,d5
  1324.  move.w d5,strbot
  1325.  
  1326. .computeloop:
  1327.  move.w 4(a1),d2
  1328.  bgt.s .infront
  1329.  bra .alloffleft
  1330.  
  1331. .infront:
  1332.  ext.l d2
  1333.  move.l #store,a0
  1334.  move.l (a1),d3
  1335.  divs.l d2,d3
  1336.  moveq #0,d5
  1337.  move.w MIDDLEX,d5
  1338.  add.l d5,d3
  1339.  move.w 6(a1),d5
  1340.  move.w strtop(pc),12(a0)
  1341.  move.l topofwall(pc),d6
  1342.  divs d2,d6
  1343.  move.w strbot(pc),16(a0)
  1344.  add.w MIDDLEY,d6
  1345.  move.w d6,strtop
  1346.  move.w d6,14(a0)
  1347.  move.l botofwall(pc),d6
  1348.  divs d2,d6
  1349.  add.w MIDDLEY,d6
  1350.  move.w d6,strbot
  1351.  move.w d6,18(a0)
  1352.  move.l d3,(a1)
  1353.  cmp.l leftclip-2(pc),d3
  1354.  blt .alloffleft
  1355.  cmp.l rightclip-2(pc),d1
  1356. ; cmp.w #95,d1
  1357.  bge .alloffright
  1358.  
  1359.  movem.l d0/d1/d2/d3/a0,-(a7)
  1360.  
  1361.  moveq #0,d0
  1362.  move.b WALLIDENT,d0
  1363.  blt.s .noputinmap
  1364.  
  1365.  move.b d0,d3
  1366.  and.b #15,d0
  1367.  move.l COMPACTPTR,a0
  1368.  moveq #0,d1
  1369.  move.w d0,d2
  1370.  add.w d0,d0
  1371.  add.w d2,d0
  1372.  bset d0,d1
  1373.  btst #4,d3
  1374.  beq.s .nodoor
  1375.  addq #2,d0
  1376.  bset d0,d1
  1377. .nodoor:
  1378.  
  1379.  or.l d1,(a0)
  1380.  move.l BIGPTR,a0
  1381.  
  1382.  move.w wallleftpt,(a0,d2.w*4) 
  1383.  move.w wallrightpt,2(a0,d2.w*4) 
  1384.  
  1385. .noputinmap
  1386.  
  1387.  movem.l (a7)+,d0/d1/d2/d3/a0
  1388.  
  1389.  bra OTHERHALF
  1390.  
  1391.  
  1392. .alloffleft:
  1393.  
  1394.  move.l (a1)+,d1
  1395.  move.w (a1)+,d0
  1396.  move.w (a1)+,d4
  1397.  move.w (a1)+,lbr
  1398.  
  1399.  dbra d7,.computeloop
  1400.  rts
  1401.  
  1402. .alloffright:
  1403.  rts
  1404.  
  1405. computeloop2:
  1406.  move.w 4(a1),d2
  1407.  bgt.s .infront
  1408.  bra alloffleft2
  1409.  
  1410. .infront:
  1411.  ext.l d2
  1412.  move.l #store,a0
  1413.  move.l (a1),d3
  1414.  divs.l d2,d3
  1415.  moveq #0,d5
  1416.  move.w MIDDLEX,d5
  1417.  add.l d5,d3
  1418.  move.w 6(a1),d5
  1419.  move.w strtop(pc),12(a0)
  1420.  move.l topofwall(pc),d6
  1421.  divs d2,d6
  1422.  move.w strbot(pc),16(a0)
  1423.  add.w MIDDLEY,d6
  1424.  move.w d6,strtop
  1425.  move.w d6,14(a0)
  1426.  move.l botofwall(pc),d6
  1427.  divs d2,d6
  1428.  add.w MIDDLEY,d6
  1429.  move.w d6,strbot
  1430.  move.w d6,18(a0)
  1431.  move.l d3,(a1)
  1432.  cmp.l leftclip-2(pc),d3
  1433.  blt.s alloffleft2
  1434.  cmp.l rightclip-2(pc),d1
  1435. ; cmp.w #95,d1
  1436.  bge.s alloffright2
  1437.  
  1438. OTHERHALF:
  1439.  
  1440.  move.w d1,(a0)
  1441.  move.w d3,2(a0)
  1442.  move.w d4,4(a0)
  1443.  move.w d5,6(a0)
  1444.  move.w d0,8(a0)
  1445.  move.w d2,10(a0)
  1446.  
  1447.  move.w lbr,d5
  1448.  sub.w #300,d5
  1449.  ext.w d5
  1450.  move.w d5,24(a0)
  1451.  move.w 8(a1),d5
  1452.  sub.w #300,d5
  1453.  ext.w d5
  1454.  move.w d5,26(a0)
  1455.  
  1456.  movem.l d7/a1,-(a7)
  1457.  move.w #maxscrdiv,d7
  1458.  bsr Doleftend
  1459.  movem.l (a7)+,d7/a1
  1460.  
  1461. alloffleft2:
  1462.  
  1463.  move.l (a1)+,d1
  1464.  move.w (a1)+,d0
  1465.  move.w (a1)+,d4
  1466.  move.w (a1)+,lbr
  1467.  
  1468.  dbra d7,computeloop2
  1469.  
  1470.  rts
  1471.  
  1472. alloffright2:
  1473.  rts
  1474.  
  1475. lbr: dc.w 0
  1476. tlbr: dc.w 0
  1477. leftwallbright: dc.w 0
  1478. rightwallbright: dc.w 0
  1479. leftwallTOPbright: dc.w 0
  1480. rightwallTOPbright: dc.w 0
  1481. strtop: dc.w 0
  1482. strbot: dc.w 0
  1483.  
  1484. databuffer:
  1485.  ds.l 1600
  1486. databuffer2:
  1487.  ds.l 1600
  1488.  
  1489. ***********************************
  1490.  
  1491. * Need a routine which takes...?
  1492. * Top Y (3d)
  1493. * Bottom Y (3d)
  1494. * distance
  1495. * height of each tile (number and routine addr)
  1496. * And produces the appropriate strip on the
  1497. * screen.
  1498.  
  1499. topofwall: dc.l 0
  1500. botofwall: dc.l 0
  1501.  
  1502.  
  1503. nostripq:
  1504.  rts
  1505.   
  1506. ScreenWallstripdraw:
  1507.  
  1508.  move.w d4,d6
  1509.  cmp.w topclip(pc),d6
  1510.  blt.s nostripq
  1511.  cmp.w botclip(pc),d3
  1512.  bgt.s nostripq
  1513.  
  1514.  cmp.w botclip(pc),d6
  1515.  ble.s noclipbot
  1516.  move.w botclip(pc),d6
  1517. noclipbot:
  1518.  
  1519.  move.w d3,d5
  1520.  cmp.w topclip(pc),d5
  1521.  bge.s nocliptop
  1522.  move.w topclip(pc),d5
  1523.  btst #0,d5
  1524.  beq.s .nsbd
  1525.  exg a2,a4
  1526. .nsbd:
  1527.  
  1528.  bra gotoend
  1529.  
  1530. nocliptop:
  1531.  
  1532.  btst #0,d5
  1533.  beq.s .nsbd
  1534.  exg a2,a4
  1535. .nsbd:
  1536.  
  1537.  
  1538.  bra gotoend
  1539.  
  1540. wlcnt: dc.w 0
  1541.  
  1542.  CNOP 0,4
  1543. drawwalldimPACK0:
  1544.  and.w d7,d4
  1545.  move.b 1(a5,d4.w*2),d1
  1546.  and.b #31,d1
  1547.  add.l d3,d4
  1548.  move.b (a4,d1.w*2),(a3)
  1549.  adda.w d0,a3
  1550.  addx.w d2,d4
  1551.  dbra d6,drawwallPACK0
  1552.  rts
  1553.  
  1554.  CNOP 0,128 
  1555. drawwallPACK0:
  1556.  and.w d7,d4
  1557.  move.b 1(a5,d4.w*2),d1
  1558.  and.b #31,d1
  1559.  add.l d3,d4
  1560.  move.b (a2,d1.w*2),(a3)
  1561.  adda.w d0,a3
  1562.  addx.w d2,d4
  1563.  dbra d6,drawwalldimPACK0
  1564.  
  1565. nostrip:
  1566.  rts
  1567.  
  1568.  CNOP 0,4
  1569. drawwalldimPACK1:
  1570.  and.w d7,d4
  1571.  move.w (a5,d4.w*2),d1
  1572.  lsr.w #5,d1
  1573.  and.w #31,d1
  1574.  add.l d3,d4
  1575.  move.b (a4,d1.w*2),(a3)
  1576.  adda.w d0,a3
  1577.  addx.w d2,d4
  1578.  dbra d6,drawwallPACK1
  1579.  rts
  1580.  
  1581.  CNOP 0,4 
  1582. drawwallPACK1:
  1583.  and.w d7,d4
  1584.  move.w (a5,d4.w*2),d1
  1585.  lsr.w #5,d1
  1586.  and.w #31,d1
  1587.  add.l d3,d4
  1588.  move.b (a2,d1.w*2),(a3)
  1589.  adda.w d0,a3
  1590.  addx.w d2,d4
  1591.  dbra d6,drawwalldimPACK1
  1592.  
  1593.  rts
  1594.  
  1595.  CNOP 0,4
  1596. drawwalldimPACK2:
  1597.  and.w d7,d4
  1598.  move.b (a5,d4.w*2),d1
  1599.  lsr.b #2,d1
  1600.  add.l d3,d4
  1601.  move.b (a4,d1.w*2),(a3)
  1602.  adda.w d0,a3
  1603.  addx.w d2,d4
  1604.  dbra d6,drawwallPACK2
  1605.  rts
  1606.  
  1607.  CNOP 0,4 
  1608. drawwallPACK2:
  1609.  and.w d7,d4
  1610.  move.b (a5,d4.w*2),d1
  1611.  lsr.b #2,d1
  1612.  add.l d3,d4
  1613.  move.b (a2,d1.w*2),(a3)
  1614.  adda.w d0,a3
  1615.  addx.w d2,d4
  1616.  dbra d6,drawwalldimPACK2
  1617.  rts
  1618.  
  1619.  
  1620. usesimple:
  1621.  mulu d3,d4
  1622.  
  1623.  add.l d0,d4
  1624.  swap d4
  1625.  add.w totalyoff(pc),d4
  1626.  
  1627. cliptopusesimple
  1628.  move.w VALAND,d7
  1629.  move.w #320,d0
  1630.  moveq #0,d1
  1631.  cmp.l a4,a2
  1632.  blt.s usea2
  1633.  move.l a4,a2
  1634. usea2:
  1635.  
  1636.  and.w d7,d4
  1637.  
  1638.  move.l d2,d5
  1639.  clr.w d5
  1640.  cmp.b #1,StripData+1
  1641.  dbge d6,simplewalliPACK0
  1642.  dbne d6,simplewalliPACK1
  1643.  dble d6,simplewalliPACK2
  1644.  rts
  1645.  
  1646.  CNOP 0,4
  1647. simplewalliPACK0:
  1648.  move.b 1(a5,d4.w*2),d1
  1649.  and.b #31,d1
  1650.  move.b (a2,d1.w*2),d3
  1651. simplewallPACK0:
  1652.  move.b d3,(a3)
  1653.  adda.w d0,a3
  1654.  add.l d2,d4
  1655.  bcc.s .noread
  1656.  addq #1,d4
  1657.  and.w d7,d4
  1658.  move.b 1(a5,d4.w*2),d1
  1659.  and.b #31,d1
  1660.  move.b (a2,d1.w*2),d3
  1661. .noread:
  1662.  dbra d6,simplewallPACK0
  1663.  rts
  1664.  
  1665.  CNOP 0,4
  1666. simplewalliPACK1:
  1667.  move.w (a5,d4.w*2),d1
  1668.  lsr.w #5,d1
  1669.  and.w #31,d1
  1670.  move.b (a2,d1.w*2),d3
  1671. simplewallPACK1:
  1672.  move.b d3,(a3)
  1673.  adda.w d0,a3
  1674.  add.l d5,d4
  1675.  bcc.s .noread
  1676.  addq #1,d4
  1677.  and.w d7,d4
  1678.  move.w (a5,d4.w*2),d1
  1679.  lsr.w #5,d1
  1680.  and.w #31,d1
  1681.  move.b (a2,d1.w*2),d3
  1682. .noread:
  1683.  dbra d6,simplewallPACK1
  1684.  rts
  1685.  
  1686.  CNOP 0,4
  1687. simplewalliPACK2:
  1688.  move.b (a5,d4.w*2),d1
  1689.  lsr.b #2,d1
  1690.  and.b #31,d1
  1691.  move.b (a2,d1.w*2),d3
  1692. simplewallPACK2:
  1693.  move.b d3,(a3)
  1694.  adda.w d0,a3
  1695.  add.l d5,d4
  1696.  bcc.s .noread
  1697.  addq #1,d4
  1698.  and.w d7,d4
  1699.  move.b (a5,d4.w*2),d1
  1700.  lsr.b #2,d1
  1701.  move.b (a2,d1.w*2),d3
  1702. .noread:
  1703.  dbra d6,simplewallPACK2
  1704.  rts
  1705.  
  1706. ;gotoendnomult:
  1707. ; movem.l d0/d1/d2/d3/d4/d7,-(a7)
  1708. ; add.l timeslarge(pc,d5.w*4),a3 
  1709. ; move.w d5,d4
  1710. ; move.l 4(a1,d2.w*8),d0
  1711. ; move.l (a1,d2.w*8),d2
  1712. ; moveq #0,d3
  1713. ; move.w d2,d3
  1714. ; swap d2
  1715. ; tst.w d2
  1716. ; move.w wallyoff(pc),d4
  1717. ; add.w #44,d4
  1718. ; bne.s .notsimple
  1719. ; cmp.l #$b000,d3
  1720. ; ble cliptopusesimple
  1721. ;.notsimple:
  1722. ; bra cliptop
  1723.  
  1724. MIDDLEY: dc.w 120
  1725. BIGMIDDLEY: dc.l 320*120
  1726. TOPOFFSET: dc.w 0
  1727. SMIDDLEY: dc.w 120
  1728. SBIGMIDDLEY: dc.l 320*120
  1729. STOPOFFSET: dc.w 0
  1730.  
  1731. gotoend:
  1732.  tst.b DOUBLEHEIGHT
  1733.  bne doubwall
  1734.  sub.w d5,d6    ; height to draw. 
  1735.  ble nostripq
  1736.  
  1737.  add.l timeslarge(pc,d5.w*4),a3
  1738.  
  1739.  add.w d2,d2
  1740.  
  1741.  move.l 4(a1,d2.w*8),d0
  1742.  add.w TOPOFFSET(pc),d5
  1743.  move.w d5,d4
  1744.  
  1745.  move.l (a1,d2.w*4),d2
  1746. ; moveq #0,d3
  1747. ; move.w d2,d3
  1748. ; swap d2
  1749. ; tst.w d2
  1750. ; bne.s .notsimple
  1751. ; cmp.l #$b000,d3
  1752. ; ble usesimple
  1753. ;.notsimple:
  1754.  
  1755.  ext.l d5
  1756.  move.l d2,d4
  1757.  muls.l d5,d4
  1758.  
  1759.  add.l d0,d4
  1760.  
  1761.  ifne CHEESEY
  1762.  asr.l #1,d4
  1763.  endc
  1764.  
  1765.  swap d4
  1766.  
  1767. ; mulu d3,d4
  1768. ; muls d2,d5
  1769. ; add.l d0,d4
  1770. ; swap d4
  1771. ; add.w d5,d4
  1772.  add.w totalyoff(pc),d4
  1773.  move.w VALAND,d7
  1774.  and.w d7,d4
  1775.  move.w #320,d0
  1776.  moveq #0,d1
  1777.  
  1778.  ifne CHEESEY
  1779.  asr.l #1,d2
  1780.  endc
  1781.  swap d2
  1782.  move.l d2,d3
  1783.  clr.w d3
  1784.  
  1785.  cmp.b #1,StripData+1
  1786.  dbge d6,drawwallPACK0
  1787.  dbne d6,drawwallPACK1
  1788.  dble d6,drawwallPACK2
  1789.  rts
  1790.  
  1791. timeslarge:
  1792.  
  1793. val SET 0
  1794.  REPT 256
  1795.  dc.l val
  1796. val SET val+320
  1797.  ENDR
  1798.  
  1799. doubwall
  1800.  moveq #0,d0
  1801.  asr.w #1,d5
  1802.  addx.w d0,d5
  1803.  add.w d5,d5
  1804.  sub.w d5,d6
  1805.  asr.w #1,d6
  1806.  ble nostripq
  1807.  
  1808.  add.l timeslargeDOUB(pc,d5.w*4),a3
  1809.  
  1810.  add.w d2,d2
  1811.  
  1812.  move.l 4(a1,d2.w*8),d0
  1813.  add.w TOPOFFSET(pc),d5
  1814.  move.w d5,d4
  1815.  
  1816.  move.l (a1,d2.w*4),d2
  1817. ; moveq #0,d3
  1818. ; move.w d2,d3
  1819. ; swap d2
  1820. ; tst.w d2
  1821. ; bne.s .notsimple
  1822. ; cmp.l #$b000,d3
  1823. ; ble usesimple
  1824. ;.notsimple:
  1825.  
  1826.  ext.l d5
  1827.  move.l d2,d4
  1828.  muls.l d5,d4
  1829.  
  1830.  add.l d0,d4
  1831.  
  1832.  ifne CHEESEY
  1833.  asr.l #1,d4
  1834.  endc
  1835.  
  1836.  swap d4
  1837.  
  1838. ; mulu d3,d4
  1839. ; muls d2,d5
  1840. ; add.l d0,d4
  1841. ; swap d4
  1842. ; add.w d5,d4
  1843.  add.w totalyoff(pc),d4
  1844.  move.w VALAND,d7
  1845.  and.w d7,d4
  1846.  move.w #640,d0
  1847.  moveq #0,d1
  1848.  
  1849.  ifeq CHEESEY
  1850.  add.l d2,d2
  1851.  endc
  1852.  
  1853.  swap d2
  1854.  move.l d2,d3
  1855.  clr.w d3
  1856.  
  1857.  cmp.b #1,StripData+1
  1858.  dbge d6,drawwallPACK0
  1859.  dbne d6,drawwallPACK1
  1860.  dble d6,drawwallPACK2
  1861.  rts
  1862.  
  1863. timeslargeDOUB:
  1864.  
  1865. val SET 0
  1866.  REPT 256
  1867.  dc.l val
  1868. val SET val+320
  1869.  ENDR
  1870.  
  1871.  
  1872.  
  1873.  
  1874. ScreenWallstripdrawBIG:
  1875.  
  1876.  move.w d4,d6
  1877.  cmp.w topclip(pc),d6
  1878.  blt nostripq
  1879.  cmp.w botclip(pc),d3
  1880.  bgt nostripq
  1881.  
  1882.  cmp.w botclip(pc),d6
  1883.  ble.s .noclipbot
  1884.  move.w botclip(pc),d6
  1885. .noclipbot:
  1886.  
  1887.  move.w d3,d5
  1888.  cmp.w topclip(pc),d5
  1889.  bge.s .nocliptop
  1890.  move.w topclip(pc),d5
  1891.  btst #0,d5
  1892.  beq.s .nsbd
  1893.  exg a2,a4
  1894. .nsbd:
  1895.  
  1896.  bra gotoendBIG
  1897.  
  1898. .nocliptop:
  1899.  
  1900.  btst #0,d5
  1901.  beq.s .nsbd2
  1902.  exg a2,a4
  1903. .nsbd2:
  1904.  
  1905.  
  1906. gotoendBIG
  1907.  tst.b DOUBLEHEIGHT
  1908.  bne doubwallBIG
  1909.  sub.w d5,d6    ; height to draw.
  1910.  ble nostripq
  1911.  
  1912.  add.l timeslargeBIG(pc,d5.w*4),a3 
  1913.  
  1914.  move.w d2,d4
  1915.  add.w d2,d2
  1916.  add.w d2,d4
  1917.  
  1918.  move.l 4(a1,d4.w*8),d0
  1919.  add.w TOPOFFSET(pc),d5
  1920.  move.w d5,d4
  1921.  
  1922.  move.l (a1,d2.w*4),d2
  1923. ; moveq #0,d3
  1924. ; move.w d2,d3
  1925. ; swap d2
  1926. ; tst.w d2
  1927. ; bne.s .notsimple
  1928. ; cmp.l #$b000,d3
  1929. ; ble usesimple
  1930. ;.notsimple:
  1931.  
  1932.  ext.l d5
  1933.  move.l d2,d4
  1934.  muls.l d5,d4
  1935.  
  1936.  add.l d0,d4
  1937.  
  1938.  ifne CHEESEY
  1939.  asr.l #1,d4
  1940.  endc
  1941.  
  1942.  swap d4
  1943.  
  1944. ; mulu d3,d4
  1945. ; muls d2,d5
  1946. ; add.l d0,d4
  1947. ; swap d4
  1948. ; add.w d5,d4
  1949.  add.w totalyoff(pc),d4
  1950.  move.w VALAND,d7
  1951.  and.w d7,d4
  1952.  move.w #320,d0
  1953.  moveq #0,d1
  1954.  
  1955.  ifne CHEESEY
  1956.  asr.l #1,d2
  1957.  endc
  1958.  swap d2
  1959.  move.l d2,d3
  1960.  clr.w d3
  1961.  
  1962.  cmp.b #1,StripData+1
  1963.  dbge d6,drawwallPACK0
  1964.  dbne d6,drawwallPACK1
  1965.  dble d6,drawwallPACK2
  1966.  rts
  1967.  
  1968. timeslargeBIG:
  1969.  
  1970. val SET 0
  1971.  REPT 256
  1972.  dc.l val
  1973. val SET val+320
  1974.  ENDR
  1975.  
  1976. doubwallBIG:
  1977.  moveq #0,d0
  1978.  asr.w #1,d5
  1979.  addx.w d0,d5
  1980.  add.w d5,d5
  1981.  
  1982.  sub.w d5,d6    ; height to draw.
  1983.  asr.w #1,d6
  1984.  ble nostripq
  1985.  add.l timeslargeBIGDOUB(pc,d5.w*4),a3 
  1986.  
  1987.  move.w d2,d4
  1988.  add.w d2,d2
  1989.  add.w d2,d4
  1990.  
  1991.  move.l 4(a1,d4.w*8),d0
  1992.  add.w TOPOFFSET(pc),d5
  1993.  move.w d5,d4
  1994.  
  1995.  move.l (a1,d2.w*4),d2
  1996. ; moveq #0,d3
  1997. ; move.w d2,d3
  1998. ; swap d2
  1999. ; tst.w d2
  2000. ; bne.s .notsimple
  2001. ; cmp.l #$b000,d3
  2002. ; ble usesimple
  2003. ;.notsimple:
  2004.  
  2005.  ext.l d5
  2006.  move.l d2,d4
  2007.  muls.l d5,d4
  2008.  
  2009.  add.l d0,d4
  2010.  
  2011.  ifne CHEESEY
  2012.  asr.l #1,d4
  2013.  endc
  2014.  
  2015.  swap d4
  2016.  
  2017. ; mulu d3,d4
  2018. ; muls d2,d5
  2019. ; add.l d0,d4
  2020. ; swap d4
  2021. ; add.w d5,d4
  2022.  add.w totalyoff(pc),d4
  2023.  move.w VALAND,d7
  2024.  and.w d7,d4
  2025.  move.w #640,d0
  2026.  moveq #0,d1
  2027.  
  2028.  ifeq CHEESEY
  2029.  add.l d2,d2
  2030.  endc
  2031.  
  2032.  swap d2
  2033.  move.l d2,d3
  2034.  clr.w d3
  2035.  
  2036.  cmp.b #1,StripData+1
  2037.  dbge d6,drawwallPACK0
  2038.  dbne d6,drawwallPACK1
  2039.  dble d6,drawwallPACK2
  2040.  rts
  2041.  
  2042. timeslargeBIGDOUB:
  2043.  
  2044. val SET 0
  2045.  REPT 256
  2046.  dc.l val
  2047. val SET val+320
  2048.  ENDR
  2049.  
  2050. nostripqthru:
  2051.  rts
  2052.  
  2053.  
  2054.  
  2055. ScreenWallstripdrawthru:
  2056.  
  2057.  move.w d4,d6
  2058.  cmp.w topclip(pc),d6
  2059.  blt.s nostripqthru
  2060.  cmp.w botclip(pc),d3
  2061.  bgt.s nostripqthru
  2062.  
  2063.  cmp.w botclip(pc),d6
  2064.  ble.s .noclipbot
  2065.  move.w botclip(pc),d6
  2066. .noclipbot:
  2067.  
  2068.  move.w d3,d5
  2069.  cmp.w topclip(pc),d5
  2070.  bge.s .nocliptop
  2071.  move.w topclip(pc),d5
  2072.  btst #0,d5
  2073.  beq.s .nsbd
  2074.  exg a2,a4
  2075. .nsbd:
  2076.  
  2077.  sub.w d5,d6    ; height to draw.
  2078.  ble.s nostripqthru
  2079.  
  2080.  bra gotoendthru
  2081.  
  2082. .nocliptop:
  2083.  
  2084.  btst #0,d5
  2085.  beq.s .nsbdthru
  2086.  exg a2,a4
  2087. .nsbdthru:
  2088.  
  2089.  sub.w d5,d6    ; height to draw.
  2090.  ble.s nostripqthru
  2091.  
  2092.  bra gotoendthru
  2093.  
  2094.  CNOP 0,4
  2095. drawwalldimthruPACK0:
  2096.  and.w d7,d4
  2097.  move.b 1(a5,d4.w*2),d1
  2098.  and.b #31,d1
  2099.  beq.s .holey
  2100.  move.w (a4,d1.w*2),(a3)
  2101. .holey:
  2102.  adda.w d0,a3
  2103.  add.l d3,d4
  2104.  addx.w d2,d4
  2105.  dbra d6,drawwallthruPACK0
  2106.  rts
  2107.  CNOP 0,4
  2108. drawwallthruPACK0:
  2109.  and.w d7,d4
  2110.  move.b 1(a5,d4.w*2),d1
  2111.  and.b #31,d1
  2112.  beq.s .holey
  2113.  move.w (a2,d1.w*2),(a3)
  2114. .holey:
  2115.  adda.w d0,a3
  2116.  add.l d3,d4
  2117.  addx.w d2,d4
  2118.  dbra d6,drawwalldimthruPACK0
  2119. nostripthru:
  2120.  rts
  2121.  
  2122.  CNOP 0,4
  2123. drawwalldimthruPACK1:
  2124.  and.w d7,d4
  2125.  move.w (a5,d4.w*2),d1
  2126.  lsr.w #5,d1
  2127.  and.w #31,d1
  2128.  beq.s .holey
  2129.  move.w (a4,d1.w*2),(a3)
  2130. .holey:
  2131.  adda.w d0,a3
  2132.  add.l d3,d4
  2133.  addx.w d2,d4
  2134.  dbra d6,drawwallthruPACK1
  2135.  rts
  2136.  CNOP 0,4
  2137. drawwallthruPACK1:
  2138.  and.w d7,d4
  2139.  move.w (a5,d4.w*2),d1
  2140.  lsr.w #5,d1
  2141.  and.w #31,d1
  2142.  beq.s .holey
  2143.  move.w (a2,d1.w*2),(a3)
  2144. .holey:
  2145.  adda.w d0,a3
  2146.  add.l d3,d4
  2147.  addx.w d2,d4
  2148.  dbra d6,drawwalldimthruPACK1
  2149.  rts
  2150.  
  2151.  CNOP 0,4
  2152. drawwalldimthruPACK2:
  2153.  and.w d7,d4
  2154.  move.b (a5,d4.w*2),d1
  2155.  lsr.b #2,d1
  2156.  and.b #31,d1
  2157.  beq.s .holey
  2158.  move.w (a4,d1.w*2),(a3)
  2159. .holey:
  2160.  adda.w d0,a3
  2161.  add.l d3,d4
  2162.  addx.w d2,d4
  2163.  dbra d6,drawwallthruPACK2
  2164.  rts
  2165.  CNOP 0,4
  2166. drawwallthruPACK2:
  2167.  and.w d7,d4
  2168.  move.b (a5,d4.w*2),d1
  2169.  lsr.b #2,d1
  2170.  and.b #31,d1
  2171.  beq.s .holey
  2172.  move.w (a2,d1.w*2),(a3)
  2173. .holey:
  2174.  adda.w d0,a3
  2175.  add.l d3,d4
  2176.  addx.w d2,d4
  2177.  dbra d6,drawwalldimthruPACK2
  2178.  rts
  2179.  
  2180.  
  2181. usesimplethru:
  2182.  mulu d3,d4
  2183.  
  2184.  add.l d0,d4
  2185.  swap d4
  2186.  add.w totalyoff(pc),d4
  2187.  
  2188. cliptopusesimplethru
  2189.  moveq #63,d7
  2190.  move.w #104*4,d0
  2191.  moveq #0,d1
  2192.  cmp.l a4,a2
  2193.  blt.s usea2thru
  2194.  move.l a4,a2
  2195. usea2thru:
  2196.  and.w d7,d4
  2197.  
  2198.  move.l d2,d5
  2199.  clr.w d5
  2200.  
  2201.  cmp.b #1,StripData+1
  2202.  dbge d6,simplewallthruiPACK0
  2203.  dbne d6,simplewallthruiPACK1
  2204.  dble d6,simplewallthruiPACK2
  2205.  rts
  2206.  
  2207.  CNOP 0,4
  2208. simplewallthruiPACK0:
  2209.  move.b 1(a5,d4.w*2),d1
  2210.  and.b #31,d1
  2211.  move.w (a2,d1.w*2),d3
  2212. simplewallthruPACK0:
  2213.  move.w d3,(a3)
  2214.  adda.w d0,a3
  2215.  add.l d5,d4
  2216.  bcc.s noreadthruPACK0
  2217. maybeholePACK0
  2218.  addx.w d2,d4
  2219.  and.w d7,d4
  2220.  move.b 1(a5,d4.w*2),d1
  2221.  and.b #31,d1
  2222.  beq.s holeysimplePACK0
  2223.  move.w (a2,d1.w*2),d3
  2224.  dbra d6,simplewallthruPACK0
  2225.  rts
  2226. noreadthruPACK0:
  2227.  addx.w d2,d4
  2228.  dbra d6,simplewallthruPACK0
  2229.  rts
  2230.  
  2231.  CNOP 0,4
  2232. simplewallholePACK0:
  2233.  adda.w d0,a3
  2234.  add.l d5,d4
  2235.  bcs.s maybeholePACK0
  2236.  addx.w d2,d4
  2237. holeysimplePACK0
  2238.  and.w d7,d4
  2239.  dbra d6,simplewallholePACK0
  2240.  rts
  2241.  
  2242.  CNOP 0,4
  2243. simplewallthruiPACK1:
  2244.  move.w (a5,d4.w*2),d1
  2245.  lsr.w #5,d1
  2246.  and.w #31,d1
  2247.  move.w (a2,d1.w*2),d3
  2248.  simplewallthruPACK1:
  2249.  move.w d3,(a3)
  2250.  adda.w d0,a3
  2251.  add.l d5,d4
  2252.  bcc.s noreadthruPACK1
  2253. maybeholePACK1
  2254.  addx.w d2,d4
  2255.  and.w d7,d4
  2256.  move.w (a5,d4.w*2),d1
  2257.  lsr.w #5,d1
  2258.  and.w #31,d1
  2259.  beq.s holeysimplePACK1
  2260.  move.w (a2,d1.w*2),d3
  2261.  dbra d6,simplewallthruPACK1
  2262.  rts
  2263. noreadthruPACK1:
  2264.  addx.w d2,d4
  2265.  dbra d6,simplewallthruPACK1
  2266.  rts
  2267.  
  2268.  CNOP 0,4
  2269. simplewallholePACK1:
  2270.  adda.w d0,a3
  2271.  add.l d5,d4
  2272.  bcs.s maybeholePACK1
  2273.  addx.w d5,d4
  2274. holeysimplePACK1
  2275.  and.w d7,d4
  2276.  dbra d6,simplewallholePACK1
  2277.  rts
  2278.  
  2279.  
  2280.  CNOP 0,4
  2281. simplewallthruiPACK2:
  2282.  move.b (a5,d4.w*2),d1
  2283.  lsr.b #2,d1
  2284.  and.b #31,d1
  2285.  move.w (a2,d1.w*2),d3
  2286. simplewallthruPACK2:
  2287.  move.w d3,(a3)
  2288.  adda.w d0,a3
  2289.  add.l d5,d4
  2290.  bcc.s noreadthruPACK2
  2291. maybeholePACK2
  2292.  addx.w d2,d4
  2293.  and.w d7,d4
  2294.  move.b (a5,d4.w*2),d1
  2295.  lsr.b #2,d1
  2296.  and.b #31,d1
  2297.  beq.s holeysimplePACK2
  2298.  move.w (a2,d1.w*2),d3
  2299.  dbra d6,simplewallthruPACK2
  2300.  rts
  2301. noreadthruPACK2:
  2302.  addx.w d2,d4
  2303.  dbra d6,simplewallthruPACK2
  2304.  rts
  2305.  
  2306.  CNOP 0,4
  2307. simplewallholePACK2
  2308.  adda.w d0,a3
  2309.  add.l d5,d4
  2310.  bcs.s maybeholePACK2
  2311.  addx.w d2,d4
  2312. holeysimplePACK2
  2313.  and.w d7,d4
  2314.  dbra d6,simplewallholePACK2
  2315.  rts
  2316.  
  2317.  
  2318. gotoendthru:
  2319.  add.l timeslargethru(pc,d5.w*4),a3 
  2320.  move.w d5,d4
  2321.  move.l 4(a1,d2.w*8),d0
  2322.  move.l (a1,d2.w*8),d2
  2323.  moveq #0,d3
  2324.  move.w d2,d3
  2325.  swap d2
  2326.  tst.w d2
  2327.  bne.s .notsimple
  2328.  cmp.l #$b000,d3
  2329.  ble usesimplethru
  2330. .notsimple:
  2331.  
  2332.  mulu d3,d4
  2333.  muls d2,d5
  2334.  add.l d0,d4
  2335.  swap d4
  2336.  add.w d5,d4
  2337.  add.w wallyoff(pc),d4
  2338. cliptopthru
  2339.  moveq #63,d7
  2340.  move.w #104*4,d0
  2341.  moveq #0,d1
  2342.  
  2343.  move.l d2,d3
  2344.  clr.w d3
  2345.  
  2346.  cmp.b #1,StripData+1
  2347.  dbge d6,drawwallthruPACK0
  2348.  dbne d6,drawwallthruPACK1
  2349.  dble d6,drawwallthruPACK2
  2350.  
  2351.  rts
  2352.  
  2353. timeslargethru:
  2354.  
  2355. val SET 104*4
  2356.  REPT 80
  2357.  dc.l val
  2358. val SET val+104*4
  2359.  ENDR
  2360.  
  2361. totalyoff: dc.w 0
  2362. wallyoff: dc.w 0
  2363.  
  2364. ******************************************
  2365. * Wall polygon
  2366. leftend: dc.w 0
  2367. wallbrightoff: dc.w 0
  2368. wallleftpt: dc.w 0
  2369. wallrightpt: dc.w 0
  2370. WHICHPBR: dc.w 0
  2371. WHICHLEFTPT: dc.w 0
  2372. WHICHRIGHTPT: dc.w 0
  2373. OTHERZONE: dc.w 0
  2374.  
  2375. itsawalldraw:
  2376.  
  2377.  move.l #Rotated,a5
  2378.  move.l #OnScreen,a6
  2379.  
  2380.  move.w (a0)+,d0
  2381.  move.w (a0)+,d2
  2382.  
  2383.  move.w d0,wallleftpt
  2384.  move.w d2,wallrightpt
  2385.  
  2386.  move.b (a0)+,WHICHLEFTPT+1
  2387.  move.b (a0)+,WHICHRIGHTPT+1
  2388.  move.w #0,leftend
  2389.  moveq #0,d5
  2390.  move.w (a0)+,d5
  2391.  
  2392.  ifne CHEESEY
  2393.  asr.w #1,d5
  2394.  endc
  2395.  
  2396.  move.w (a0)+,d1
  2397.  
  2398.  ifeq CHEESEY
  2399.  asl.w #4,d1
  2400.  endc
  2401.  ifne CHEESEY
  2402.  asl.w #3,d1
  2403.  endc
  2404.  
  2405.  move.w d1,fromtile
  2406.  
  2407.  move.w (a0)+,d1
  2408.  move.w d1,totalyoff
  2409.  
  2410.  move.w (a0)+,d1
  2411.  move.l #walltiles,a3
  2412.  move.l (a3,d1.w*4),a3
  2413.  move.l a3,PaletteAddr
  2414.  add.l #64*32,a3
  2415.  move.l a3,ChunkAddr
  2416.  
  2417.  ;move.w (a0)+,d1
  2418.  ;add.w ZoneBright,d1
  2419.  move.w ZoneBright,angbright
  2420.  ;move.w (a0)+,d1
  2421.  ;move.w (a0)+,d4
  2422.  move.l yoff,d6
  2423.  
  2424.  moveq #0,d1
  2425.  move.b (a0)+,d1
  2426.  
  2427.  ifne CHEESEY
  2428.  asr.w #1,d1
  2429.  endc
  2430.  move.w d1,VALAND
  2431.  
  2432.  moveq #0,d1
  2433.  move.b (a0)+,d1
  2434.  
  2435.  ifne CHEESEY
  2436.  sub.w #1,d1
  2437.  endc
  2438.  move.w d1,VALSHIFT
  2439.  
  2440.  moveq #0,d1
  2441.  move.b (a0)+,d1
  2442.  
  2443.  ifne CHEESEY
  2444.  asr.w #1,d1
  2445.  endc
  2446.  
  2447.  move.w d1,HORAND
  2448.  
  2449.  move.b (a0)+,WHICHPBR
  2450.  
  2451.  move.w totalyoff,d1
  2452.  add.w wallyoff,d1
  2453.  
  2454.  ifne CHEESEY
  2455.  asr.w #1,d1
  2456.  endc
  2457.  
  2458.  and.w VALAND,d1
  2459.  move.w d1,totalyoff
  2460.  
  2461.  move.l (a0)+,topofwall
  2462.  sub.l d6,topofwall
  2463.  move.l (a0)+,botofwall
  2464.  sub.l d6,botofwall
  2465.  
  2466.  
  2467.  move.b (a0)+,d3
  2468.  ext.w d3
  2469.  move.w d3,wallbrightoff
  2470.  move.b (a0)+,OTHERZONE+1
  2471.  
  2472.  move.l topofwall,d3
  2473.  cmp.l botofwall,d3
  2474.  bge wallfacingaway
  2475.  
  2476.  tst.w 6(a5,d0*8)
  2477.  bgt.s cantell
  2478.  tst.w 6(a5,d2*8)
  2479.  ble wallfacingaway
  2480.  bra cliptotestfirstbehind
  2481. cantell:
  2482.  tst.w 6(a5,d2*8)
  2483.  ble.s cliptotestsecbehind
  2484.  bra pastclip
  2485. cliptotestfirstbehind:
  2486.  
  2487.  move.l (a5,d0*8),d3
  2488.  sub.l (a5,d2*8),d3
  2489.  move.w 6(a5,d0*8),d6
  2490.  sub.w 6(a5,d2*8),d6
  2491.  ext.l d6
  2492.  divs.l d6,d3
  2493.  move.w 6(a5,d2.w*8),d6
  2494.  ext.l d6
  2495.  muls.l d6,d3
  2496.  neg.l d3
  2497.  add.l (a5,d2*8),d3
  2498.  
  2499.  move.l (a5,d2*8),d6
  2500.  move.w 6(a5,d2*8),d4
  2501.  ext.l d4
  2502.  divs.l d4,d6
  2503. ; move.w MIDDLEX,d4
  2504. ; ext.l d4
  2505. ; sub.l d4,d6
  2506.  
  2507. ; move.w (a6,d2*2),d6
  2508. ; sub.w MIDDLEX,d6
  2509. ; ext.l d6
  2510.  cmp.l d6,d3
  2511.  bge wallfacingaway
  2512.  bra cant_tell
  2513.  bra pastclip
  2514.  
  2515. cliptotestsecbehind:
  2516.  
  2517.  move.l (a5,d2*8),d3
  2518.  sub.l (a5,d0*8),d3
  2519.  move.w 6(a5,d2*8),d6
  2520.  sub.w 6(a5,d0*8),d6
  2521.  ext.l d6
  2522.  divs.l d6,d3
  2523.  move.w 6(a5,d0.w*8),d6
  2524.  ext.l d6
  2525.  muls.l d6,d3
  2526.  neg.l d3
  2527.  add.l (a5,d0*8),d3
  2528. ; move.w (a6,d0*2),d6
  2529. ; sub.w MIDDLEX,d6
  2530. ; ext.l d6
  2531.  
  2532.  move.l (a5,d0*8),d6
  2533.  move.w 6(a5,d0*8),d4
  2534.  ext.l d4
  2535.  divs.l d4,d6
  2536. ; move.w MIDDLEX,d4
  2537. ; ext.l d4
  2538. ; sub.l d4,d6
  2539.  
  2540.  cmp.l d6,d3
  2541.  ble wallfacingaway
  2542.  bra cant_tell
  2543.  
  2544. pastclip:
  2545.  
  2546.  move.l (a5,d0*8),d3
  2547.  move.w 6(a5,d0*8),d4
  2548.  ext.l d4
  2549.  divs.l d4,d3
  2550.  move.w MIDDLEX,d4
  2551.  ext.l d4
  2552.  add.l d4,d3
  2553.  
  2554.  move.l (a5,d2*8),d6
  2555.  move.w 6(a5,d2*8),d4
  2556.  ext.l d4
  2557.  divs.l d4,d6
  2558.  move.w MIDDLEX,d4
  2559.  ext.l d4
  2560.  add.l d4,d6
  2561.  
  2562.  move.w RIGHTX,d4
  2563.  ext.l d4
  2564.  cmp.l d4,d3
  2565.  bge wallfacingaway
  2566.  cmp.l d6,d3
  2567.  bge wallfacingaway
  2568.  tst.l d6
  2569.  blt wallfacingaway
  2570.  
  2571. cant_tell:
  2572.  
  2573. ; move.l a1,a4
  2574. ; move.w #31,d6
  2575. ; move.l #0,d3
  2576. ;.emptylop:
  2577. ; move.l d3,(a4)+
  2578. ; dbra d6,.emptylop
  2579.  
  2580. ; move.w rightclip(pc),d6
  2581. ; st (a1,d6)
  2582. ; move.w leftclip(pc),d6
  2583. ; st -1(a1,d6)
  2584.  
  2585. ; muls sinval(pc),d1
  2586. ; muls cosval(pc),d4
  2587. ; add.l d1,d4
  2588. ; add.l d4,d4
  2589. ; swap d4
  2590. ; neg.w d4
  2591. ; move.w d4,d6
  2592. ; asr.w #1,d4
  2593. ; sub.w d4,angbright
  2594. ; and.b #$fe,d4
  2595. ; asl.w #2,d4
  2596. ; asl.w #2,d6
  2597.  
  2598.  movem.l d7/a0/a5/a6,-(a7)
  2599.  move.l (a5,d0*8),a0
  2600. ; add.l a0,a0
  2601.  move.w 6(a5,d0*8),d1
  2602.  move.l (a5,d2*8),a2
  2603. ; add.l a2,a2
  2604.  move.w 6(a5,d2*8),d3
  2605.  
  2606.  move.l #CurrentPointBrights,a5
  2607.  tst.b DOUPPER
  2608.  beq.s .notupper
  2609.  add.w #4,a5
  2610. .notupper
  2611.  
  2612.  move.w currzone,d0
  2613.  move.b WHICHPBR,d4
  2614.  btst #3,d4
  2615.  beq.s .nototherzone 
  2616.  move.w OTHERZONE,d0
  2617. .nototherzone
  2618.  
  2619.  and.w #7,d4
  2620.  muls #40,d0
  2621.  add.w d0,d4
  2622.  
  2623.  move.w WHICHLEFTPT,d0
  2624.  asl.w #2,d0
  2625.  add.w d4,d0
  2626.  
  2627.  move.w (a5,d0.w*2),d0
  2628.  bge.s .okpos1
  2629.  neg.w d0
  2630. .okpos1:
  2631.  
  2632.  add.w wallbrightoff,d0
  2633.  move.w d0,leftwallbright
  2634.  
  2635.  move.w WHICHRIGHTPT,d0
  2636.  asl.w #2,d0
  2637.  add.w d4,d0
  2638.  move.w (a5,d0.w*2),d0
  2639.  bge.s .okpos2
  2640.  neg.w d0
  2641. .okpos2:
  2642.  
  2643.  add.w wallbrightoff,d0
  2644.  move.w d0,rightwallbright
  2645.  
  2646.  move.w currzone,d0
  2647.  move.b WHICHPBR,d4
  2648.  lsr.w #4,d4
  2649.  btst #3,d4
  2650.  beq.s .nototherzone2 
  2651.  move.w OTHERZONE,d0
  2652. .nototherzone2
  2653.  
  2654.  and.w #7,d4
  2655.  muls #40,d0
  2656.  add.w d0,d4
  2657.  
  2658.  move.w WHICHLEFTPT,d0
  2659.  asl.w #2,d0
  2660.  add.w d4,d0
  2661.  
  2662.  move.w (a5,d0.w*2),d0
  2663.  bge.s .okpos3
  2664.  neg.w d0
  2665. .okpos3:
  2666.  
  2667.  
  2668.  add.w wallbrightoff,d0
  2669.  move.w d0,leftwallTOPbright
  2670.  
  2671.  move.w WHICHRIGHTPT,d0
  2672.  asl.w #2,d0
  2673.  add.w d4,d0
  2674.  move.w (a5,d0.w*2),d0
  2675.  bge.s .okpos4
  2676.  neg.w d0
  2677. .okpos4:
  2678.  add.w wallbrightoff,d0
  2679.  move.w d0,rightwallTOPbright
  2680.  
  2681.  move.w leftend(pc),d4
  2682.  move.l #max3ddiv,d7
  2683.  
  2684.  move.w #-1,LASTSTIRRUP
  2685.  
  2686.  ifeq CHEESEY
  2687.  
  2688.  move.w rightwallTOPbright,d0
  2689.  cmp.w rightwallbright,d0
  2690.  bne.s gottagour
  2691.  move.w leftwallTOPbright,d0
  2692.  cmp.w leftwallbright,d0
  2693.  bne.s gottagour
  2694.  
  2695.  endc
  2696.  
  2697.  bsr walldraw
  2698.  bra.s nottagour
  2699.  
  2700. gottagour:
  2701.  bsr walldrawGOUR
  2702. nottagour:
  2703.  movem.l (a7)+,d7/a0/a5/a6
  2704.  rts
  2705.  
  2706. wallfacingaway:
  2707.  
  2708.  
  2709.  rts
  2710.  
  2711. PointBrightsPtr: dc.l 0
  2712. midpt: dc.l 0
  2713. dist1: dc.l 0
  2714. dist2: dc.l 0
  2715. VALAND: dc.w 0
  2716. VALSHIFT: dc.w 0
  2717. HORAND: dc.w 0
  2718.  
  2719. sinval: dc.w 0
  2720. cosval: dc.w 0
  2721.  
  2722. oldxoff: dc.w 0
  2723. oldzoff: dc.w 0
  2724.  
  2725. topclip: dc.w 0
  2726. botclip: dc.w 0
  2727. seethru: dc.w 0
  2728.  
  2729.